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14-Sep-1984 HMIN SCHR.BLI;1 (1 
H 1 001 ZTITLE ‘EDTSCHMINSCHR = insert a string of characters’ 
; ¢ Oe MODULE eb atta RINGER ( ! Insert a spring of characters 
3 ? Obe ‘wed = 'v04-000' an S| HMINSCHR.BLI Edit: JBS1010 
; 5 0005 1 BEGIN 
; 6 8008 1! 
3 4 sis 4 1 YER RARER REAR ERR AERA EAE EEA TAAAAAARERHERRAHAKRERERREE } 
$ 008 1 !* * 
3 9 $008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 * | 
; 0010 1 i DIGITAL EQUIPMENT CORPORATION, - MAYNARD. MASSACHUSETTS. + 
¢ 1 O01] 1 is ALL RIGHTS RESERVED. * | 
3 '® ® 
; i§ $018 1 ie ae —. is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; % 0014 1 !* Y IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
7) oe 0015 1 !* INCLUSION OF THE ABOVE gpd NOTICE. THIS SOFTWARE OR ANY OTHER * 
: «616 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
: 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: 13 B28 ! a TRANSFERRED. * 
$ 'e * 
: 20 0020 1 !«* phe. INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: 21 0021 1 ! SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: $8 oss ! pa CORPORATION. * | 
: 'e * 
> 26 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 25 0025 1 '* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
; & 0026 1 !« * 
5 a 0027 1 !« * 
: 28 0028 1 Heke ee eee eee ee eee ARERR AAA AAA AAA ATTA AAT TATRA TATA AAA AAA EAE 
jg is 34 1! 
; 0030 1 
4). 0031 1 !++ | 
; 2 0032 1 ! FACILITY: EDT -- The DEC Standard Editor 
;- 2 0033 1! 
>: 0034 1 ! ABSTRACT: 
‘ :, 0035 1! 
3 36 0036 1! This module does a ——— mode) insertion of a string of | 
3 3 oth : characters at the current position in the text. 
3 +4 st ! } ENVIRONMENT: Runs at any access mode - AST reentrant | 
3 41 0041 1 ! AUTHOR: Bob Kushlis, CREATION DATE: Unknown 
3 4g 98 4 1! 
: & 004 1 ! MODIFIED BY: 
: fee 0044 1! 
3; 645 0045 1 ! 1-001 = Original. DJS 04-Feb-1981. This module was created b 
>; 46 0046 1! extract tag the routine INSERT_ CHARS from the module CHANGE.BLI. | 
; OF 0047 1 ! 1-002 - Regularize headers. JBS 02-Mar-1981 
; 68 0048 1 ! 1-005 = Change SPLIT_LINE to EDTS$SP T NINS - JBS 30-Mar-1981 
; «#649 0049 1 ! 1-004 - Fix up some Comments. JBS 02-Jun-1981 
; & 0050 1 ! 1-005 - Use new message codes. JBS 04-Au pbs) 
; 31 51 1 ! 1-006 - New screen update logic. Jes 13-Se $B! 982 
: 6 26 1 ! 1-007 - pent ace call to edt$$tst_eob. STS 22-Sep-1982 
i. 2 055 1! 1-008 - &@ parameter to the felt Line routine. SMB Vetovn 198s 
; | «654 Ope 1 ! 1-009 - hh the parameter split t line rout tog. SMB_ 17-Nov-1982 
3 2? 0036 ' 1-010 = Change the call to EDTS$h K_LNCHG. JBS 27-Dec-1982 | 
: 57 0057 1 | 


EDTSCHMINSCHR EDTSCHMINSCHR - insert a string of characters 
¥04-000 : 


Declarations 
; PP 8 1 ZSBTTL ‘Declarations’ 
3; @& ae 
,; 6) 060 1 ! TABLE OF CONTENTS: 
; 6 061 1! 
; 6 006 1 
; ee 98 : REQUIRE ‘EDTSRC: TRAROUNAM'; 
3 66 $258 1 FORWARD ROUTINE 
; «67 0504 1 EDTSSINS_STR; 
; 668 0505 1 
; @& 0506 1! 
; 0507 1°! INCLUDE FILES: 
s fi 0508 1! 
ce. & 0509 1 
3 7 0510 1 REQUIRE ‘EDTSRC:EDTREQ'; 
; «676 0645 1 
. 0646 1! 
4 76 0647 1 ! MACROS: 
; 77 0648 1! 
: 78 0649 1! NONE 
:; 79 0650 1! 
; 80 0651 1 ! EQUATED SYMBOLS: 
, #8} O63¢ . 2 
; ©82 06535 1! NONE 
3; 83 0654 1! 
; «B46 0655 1 ! OWN STORAGE: 
.. & 0656 1! 
; 686 0657 1! NONE 
s 6 6S? 0658 1! 
; 88 0659 1 ! EXTERNAL REFERENCES: 
; 89 0660 1! : 
: 90 0661 1! In the routine 
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! Insert a string of characters at the current position 
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EDTSCHMINSCHR EDTSCHMINSCHR = insert a string of characters 16-Sep-1984 00:01:27 AX-11 Bliss-32 V4.0-742 Page 3) 
v04-000 EDTSSINS_STR = insert a string of characters aaa 1 09:93:95 EDT SREICAMINSCHR BL 12 , (3) | 
; g b66¢ } ZSBTITL "EDTSSINS_STR = insert a string of characters’ | 
>; 94 664 1 GLOBAL ROUTINE EDTSSINS_STR ( ! Insert a gtring of characters | 
$ 32 B06? : s. Address of str ng to insert 
: ' Len of string to inser 
: Of O67 1 2 «oy = . : | 
; #498 0668 1 
; 99 0669 1 !++ 
; 100 0670 1 ! FUNCTIONAL DESCRIPTION: 
: 101 0671 1! 
; 44 por¢ : Insert a string of characters at the current position in the text. | 
; 104 0674 1 ! FORMAL PARAMETERS: 
3 105 0675 1! 
: 106 0676 1! § a pointer to the string 
: 107 0677 1! L the length of the string 
: 108 0678 1! 
; 109 0679 1 ! IMPLICIT INPUTS: 
; 110 0680 1! 
; 33 0681 1! EDTSS$A_SEL_POS 
; a 0682 1! EDTSS$SA_LN_END 
. 0683 1! EDTS$G_LN_LEN 
: 116 0684 1! EDTSSA_LN-PTR 
3 195 0685 1! EDTS$T_LN_BUF 
; 16 0686 1! 
s 7 0687 1 ! IMPLICIT OUTPUTS: 
: #118 0688 1! 
: 119 0689 1! EDTSSA_SEL_POS 
> 120 0690 1! EDTSS$A_LN_PTR 
.: Sa 0691 1! 
: is¢ 0692 1 ! ROUTINE VALUE: 
3; ie 0693 1! | 
> 124 0694 1! 1 = success, 0 = error (Line overflow) 
s Yeo 0695 1! 
; 126 0696 1 ! SIDE EFFECTS: 
: 127 0697 1 | | 
: 128 0698 1! NONE 
: Ht 94 0699 1! 
; ta 0700 1 !-- 
s 31 0701 1 
; 138 0702 2 BEGIN 
, 3S 0703 2 | 
; (134 0704 EXTERNAL ROUTINE ; : 
; ws 0705 EDTSSMSG_BELL : NOVALUE ' Qutput a message to the terminal with a warning bell 
s 136 0706 EDTSSMRK-LNCHG : NOVALUE, ! Track Line updates 
3; 137 0707 EDTSSCS_OUP, ' Move up a Line : 
; 138 0708 EDTSS$UPD_LNLEN : NOVALUE, ' Update the Length of the current Line ; 
; 19 0709 EDTSSSEL _RNGPOS, ' Compare the select Line with the current line 
: re 9710 EDTSS$SPLT_LNINS : NOVALUE; ' Split a Line of text at the current cursor position 
; rs ar cerca, male 
; 071 EDTSS$A_SEL_POS, ' select position, J 
3 144 714 EDTS$A_LN_END, ' End of current Line pointer 
: 145 715 EDT$$G_LN_LEN, ! Length of current Line 
: 146 ay EDTSSA_WK-LN : REF LIN_BLOCK, 
: «147 a EDT$$2_E08 LN, 
: «148 718 EDTSSA_LN_PTR, ! Current character pointer 


ED 
END; 

'¢ 

Compute the new cursor position. 


OLD_LPOINT = .EDTSS$A_LN_PTR; 
EDTSSA_LN_PTR = CHSPCUS”(.EDTSS$A_LN_PTR, .L); 


Open up a hole for the new characters. 
EDTSSCPY_MEM (CHSDIFF (.EDTSS$A_LN_END, .OLD_LPOINT), .OLD_LPOINT, .EDTSSA_LN_PTR); 
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DT$ R - insert a string of characters 1b-Se -1984 00:01:27 AX-11 Bliss-32 V4.0-742 
DT$ * - insert a string of characters 12280871382 93393 :86 EDT .SRCICAMINSCHR:BL 1 
23 718 EDTSS$T_LN_BUF ; ! Line buffer 
i f 1 MESSAGES ((LINEXC255)); 
38 f § First make sure the Line will not overflow. 
55 725 
56 726 IF (.EDTS$G_LN_LEN + .L GTRU 255) 
57 727 THEN 
58 728 BEGIN 
59 729 EDTSSMSG_ BELL (EDTS_LINEXC255); 
60 730 RETURN (0); 
61 731 ND 
6¢ er; ELSE 
6 73 BEGIN 
64 734 
65 735 LOCAL 
736 OLD_LPOINT; 
6 737 
6 738 '¢ 
6 739 ! Check for the old E0OB. 
re gh 
7 oo; IF (.EDTSSA_WK_LN EQLA EDT$$Z_E08_LN) 
7 74 THEN 
7 744 BEGIN 
7 745 EDTSSSPLT_LNINS (0); ' Don't use optimizer 
7 746 TS$CS_UP (); 
7 747 
7 748 
7 749 
8 750 
8 751 
8 £36 
75 
754 
755 
756 
757 
58 
59 
60 
6 
6 
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7 + 
: } And move them in. 
4 4 1 EDTSSCPY_MEM (.L, .S, .OLD_LPOINT); 
38 7 : i Update the Length of the Line. 
94 764 !- 
95 765 EDTSSUPD_LNLEN (.L); 
96 766 '¢ 
4 ree Record the insertion for the screen updater. 
44 19) - EDTSSMRK_LNCHG (SCR_EDIT_MODIFY, .OLD_LPOINT - EDTSS$T_LN_BUF); 
01 771 i Update select range if necessary. 
4 ak le 
0 77 
04 774 IF (EDTSS$SEL_RNGPOS () EQL 0) 
65 775 THEN 
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EDTSCHMINSCHR EDTSCHMINSCHR = insert a string of characters 16-Sep-1984 00:01:27 AX-11 Bliss-32 V4.0-742 Pp 
04~600 EDTSSINS_STR = insert a string of characters 1328087138 19:93:86 CDT LSREICHMINSCHR-BL I 24 ont (33 
: 308 Na th t line is the select Li | 
3 e curren ne is elect 
08 0778 u e select Line. | 
; 9 ore IF CHSPTR_LSS (.OLD_LPOINT, .EDTS$A_SEL_POS) THEN EDTSS$A_SEL_POS = CHSPLUS (.EDTSS$A_SEL_POS, .L) 
: 21 07 RETURN (1); 
3 ig ores § END; 
$ 26 0784 
; 215 0785 1 END; ! of routine EDTSSINS_STR 


TITLE EDTSCHMINSCHR EDTSCHMINSCHR - insert a string o 
: f characters 
-IDENT \vV04-000\ 


-EXTRN EDTSS$MSG BELL, EDTSSMRK LNCHG 
-EXTRN EDTSSCS_OP, EDTSSUPD D_LNCEN 


eEXTRN EDTS$S Serer RNGPO 
-EXTRN EDTSS$SPLT_LNINS 
-EXTRN EDTSS$A_SEC_POS, EDTS$$A_LN_END 
-EXTRN EDTS$G_LN NACEN. EDTSSA_Qk_CN 
XTRN EDT$$Z_EOB_LN, EDTSS$A_LN PTR 
~EXTRN EDTSST_LN_ Bur. EDTS_LINERXC255 
-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
03FC 00000 SENTRY EDTSSINS, STR, Save R2-R3,R4,R5.RO.R7.RBRO 0664, 
59 000000006 00 9€ 00002 MOVAB EDTS$$A_SEL : 
58 000000006 00 9€ 00009 MOVAB EDTSSA“LN_ PTR: Rs F 
57 08 AC DO 00010 MOVL. L, R?~ : 0726 
50 000000006 00 57 C1 00014 ADDL3 R?, EDT$S$G_LN_LEN, RO : 
OOOOOOFF 8F 50 01 9001¢ CMPL RO, #255 : 
10 18 9002 BLEQU§ 1$ : 
000000006 8F oD 00025 PUSHL #EDT$_LINEXC255 : 0729 
000000006 00 01 FB 000¢8 CALLS #1, EDTSS$MSG_BELL : 
50 D4 00032 CLRL = RO : 0733 
04 00034 RET : 
50 000000006 00 9€ 0035 1$: MOVAB EDTSSZ _EOB_LN, RO + 0742 
50 000000006 00 01 000 ¢ CMPL  EDT$$A~WK_CN, RO : 
10 12 0004 BNEQ 2$ ; 
7E D4 00045 CLRL = (SP) > 0745 
000000006 00 01 FB 00047 CALLS #1, EDTSS$SPLT_LNINS : 
000000006 90 0 FB D004 CALLS 4&0. CS_U : 0746 
6 $ D 55 28: MOVL ED piss A ALN PT PTR. OLD_LPOINT ; O75¢ 
68 C 90038 ADDL2 R7 N’P : 075 
51 000000006 00 36 ¢ 008 SUBL3 OLD gfPoints. LEOTSSA _LN_END, R1 : 0757 
50 68 DO 0006 MOVL. DTS : 
60 86 51 : 0066 mOVcs Rl. (OCD CPOIAT) (RO) F 
66 04 BC 57 28 O006A MOVC 7, aS, TOLD_LPOINT) : 0761 
57 DD 006 PUSHL : 0765 | 
000000006 00 1 FB 00071 CALLS EDT$$UPD LNL N : | 
20 000000006 9 4 0078 MOV Bit LN_BUF : 0769 
7E 6 C3 0007F SUBL OLS LTPOINT, RO SP) F 
1 DD 00 3 PUSHL : 
00000006 00 : FB 000 CALLS #2. EDTSSMRK_LNCHG F 
00000006 00 FB 0008C CALLS , EDTSSSEL-RNGPOS 3 0774 | 
i 
| 
| 
| 
| 
| 


<m 
ogo 


BeSe Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se ae Se Se Se Se Se Se Se seas 


a 7 
N 14 
EDTSCHMINSCHR DTISCHMINSCHR = insert a string of characters 16-Sep-1984 00:01:27 AX-11 Bliss-32 V4.0-74 Page 6) 
be °500 ESTES INS STR - insert a oo of characters 127288: 1382 99:93:87 HET Red aainscuR oc (44 . (3) | 
p | TSTL 3 | 
BNEQ : 
69 D 9 CMPL OLO.LPOINT, EDTS$A_SEL_POS : 0780 
0 if 009A BGEQ F 
69 57 CO 0009C ADDL R7, EDTS$$A_SEL_POS : 
50 01 00 OQOO9F 3$: MOVL #1, RO 3; 0782 
04 000A2 RET ; 0785 


; Routine Size: 163 bytes, Routine Base: _EDTSCODE + 0000 


0786 1 
0787 1 !<BLF/PAGE> 
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END ! of module EDTSCHMINSCHR 
E 


, 
| 

PSECT SUMMARY | 

Name Bytes Attributes | 
_EDTSCODE 163 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) | 


Library Statistics 


BE et ae a ge MR Pai i eety oF eR Syabols -<---<- " Pages Processing 
; File Total Loaded Percent Mapped Time 
; ~$355$DUA2B: CEDT. SRCJEDT - 32:1 377 1 40 00:00.2 
: _$255$DUA28: FEST T.SRCIPSECTS.L32;1 2 1 6 7 00:00.1 

| 
: COMMAND QUALIFIERS | 
: ahi pa Ah CoE CKe CF ELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=L1S$:CHMINSCHR/OBJ=0BJ$:CHMINSCHR MSRC$:CHMINSCHR.BLI/UPDATE=(ENHS$:C 
s sizes 163 code + 0 data bytes | 
; Run Time: 00:12.4 
3 ed Time: 00:14.3 
3 Lines/CPU Min: 3816 
3 Lexemes/CPU-Min: 11314 
3 s 


ome" Used: 81 page 
a 


Compilation Complete 
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